<%

Function torcida_adicionar_clube(nome, regiao)
		
		if torcida_existe(nome, regiao)=FALSE then
	
			str = "INSERT into clubes "
			str = str & "(id, nome, regiao) "
			str = str & "VALUES ('"&(torcida_ultimo_id()+1)&"' ,'" & nome & "', '" & regiao & "')"		
			Set rsI = conexao_geral.Execute(str)
				
		End If
				
End Function

Function torcida_existe(nome, regiao)

		str = "SELECT torcida from clubes where nome='"&nome&"' AND regiao='"&regiao&"'"
		Set rs = conexao_geral.Execute(str)
		
		if rs.eof then
	
			torcida_existe = FALSE
			
		Else
		
			torcida_existe = TRUE
				
		End If
				
End Function

Function torcida_ultimo_id()

		str = "SELECT id from clubes order by id desc"
		Set rs = conexao_geral.Execute(str)
	
			torcida_ultimo_id = rs("id")

				
End Function

%>